Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/6-Apple⁄DEC Alliance/Solutions & Networking Guide/Macintosh Networking Guide/Macintosh Networking Guide/card_4620.txt

Text File | 1990-04-17 | 8KB | 385 lines

-- card: 4620 from stack: in
-- bmap block id: 7419
-- flags: 0000
-- background id: 18894
-- name: Room
----- HyperTalk script -----
on openCard
  global env
  put env into cd fld "CPU"
  put "Application Level" into fld "Floorname"
  put env && "Solution Room" & return & "click on the Macintosh" into fld "Tell"
  pass openCard
end openCard

on mouseEnter
  global env
  put env && "Applications Room" & return & "click on the Macintosh screen" into fld "Tell"
end mouseEnter



-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=25 right=303 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Exit Applications room
----- HyperTalk script -----
On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseUp
  global env,hall,sol,currentfloor,lastRoom
  set cursor to busy
  put "3  Applications" into currentfloor
  put env && sol into lastRoom
  put empty into sol
  set lockscreen to true
  put "Main Hallway" into bkgnd fld "FloorName"
  go to cd "Hallway1"
  unlock screen with dissolve
end mouseUp

on mouseEnter
  put "Exit to Hallway Button" & return & "click to go to the hallway" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave



-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=401 top=143 right=176 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 10240
-- line height: 12
-- part name: CPU


-- part 30 (field)
-- low flags: 81
-- high flags: 2000
-- rect: left=132 top=67 right=176 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 12
-- text size: 12
-- style flags: 8192
-- line height: 13
-- part name: Explainer


-- part 69 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=68 top=195 right=209 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: products
----- HyperTalk script -----
on mouseUp
  global Help
  if Help then exit mouseUp
  send mouseUp to btn "Macintosh"
end mouseUp

on mouseEnter
  global Help
  if Help then
    put "Products Button" & return & return & "Click the Macintosh screen to go to the Products screen" && "and select a product." into field explainer
  else
    ChangeCurs 6069
    put "Products Button" & return & "click to choose product" into fld "Tell"
  end if
end mouseEnter

on mouseLeave
  global Help
  if help then
  else
    changeCurs 69
    put empty into fld "Tell"
  end if
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 70 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=401 top=198 right=210 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: products
----- HyperTalk script -----
on mouseUp
  global Help
  if Help then exit mouseUp
  send mouseUp to btn "CPU"
end mouseUp

on mouseEnter
  global Help
  if Help then
    put "Products Button" & return & return & "Click the Macintosh screen to go to the Products screen" && "and select a product." into field explainer
  else
    ChangeCurs 6069
    put "Products Button" & return & "click to choose product" into fld "Tell"
  end if
end mouseEnter

on mouseLeave
  global Help
  if help then
  else
    changeCurs 69
    put empty into fld "Tell"
  end if
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=61 top=129 right=209 bottom=149
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Macintosh
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Macintosh Screen" & return & "click to configure" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseUp
  global env,sol,lastRoom
  put env && sol into lastRoom
  set lockscreen to true
  set cursor to busy
  get the loc of me
  put it into MLoc
  Put "Zoomer " & MLoc & "," & MLoc & "," & "254,151,278,166" into Zoomy
  do Zoomy
  Zoomer 254,151,278,166,8,4,507,336
  put empty into fld "Prodname"
  put empty into fld "Prodname2"
  put empty into fld "Side1"
  put empty into fld "Side2"
  put empty into fld "ProdnameUp"
  put empty into fld "ProdnameUp2"
  put empty into fld "Network"
  put empty into fld "click"
  put empty into fld "click2"
  put empty into prodname2
  put empty into reads2
  put empty into writes2
  put empty into network2
  put empty into sideone
  put empty into common
  --unlock screen with dissolve
  --set lockscreen to true
  push card
  go to cd "White"
  go to cd "MacCloseUp"
  unlock screen with dissolve
end mouseUp




-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=345 top=123 right=213 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CPU
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Host Monitor" & return & "click to choose products" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseUp
  global env,sol,lastRoom
  put env && sol into lastRoom
  extractHost
  set cursor to busy
  set lockscreen to true
  get the loc of me
  put it into MLoc
  Put "Zoomer " & MLoc & "," & MLoc & "," & "254,151,278,166" into Zoomy
  do Zoomy
  Zoomer 254,151,278,166,8,4,507,336
  put empty into fld "Prodname"
  put empty into fld "Prodname2"
  put empty into fld "Side1"
  put empty into fld "Side2"
  put empty into fld "ProdnameUp"
  put empty into fld "ProdnameUp2"
  put empty into fld "Network"
  put empty into fld "click"
  put empty into fld "click2"
  put empty into prodname2
  put empty into reads2
  put empty into writes2
  put empty into network2
  put empty into sideone
  put empty into common
  push card
  go to cd "TerminalCloseUp"
  unlock screen with dissolve
end mouseUp



-- part 75 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=213 top=217 right=241 bottom=247
-- title width / last selected line: 0
-- icon id / first selected line: 2439 / 2439
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: wire1
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd btn "Macintosh"
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  changeCurs 6069
  put "Connectivity Connection" & return & "click to select choice" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave




-- part 76 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=245 top=217 right=241 bottom=279
-- title width / last selected line: 0
-- icon id / first selected line: 2439 / 2439
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Wire2
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd btn "CPU"
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  changeCurs 6069
  put "Connectivity Connection" & return & "click to select choice" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave




-- part contents for background part 68
----- text -----
Application Level

-- part contents for background part 41
----- text -----
Macintosh to Digital Office Productivity Room

-- part contents for card part 7
----- text -----
Digital